Top 10k strings from Spectrumania - Age 2 - Issue 03 (1985)(Ventamatic)(16k)(es)(Side B).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Magazines / Sinclair ZX Spectrum - Magazines - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
9 00 00 00 00
5 p$=" ?":
5 LD HL,INTER
4 LD (DESTI),HL
4
3 p$="Nom.o fecha ?":
3 dibujo
3 LD DE,(PROCE)
3 CALL COGR0
3 CALL CLPRO
3 ;"PULSA PLAY":
3 ;" ";
3 )+" "+a$(1
3
2 p$="Referencia ?":
2 p$="No hay mas articulos":
2 linea=linea+10
2 linea=8500
2 VENTAMATIC SOFT
2 UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU
2 TYPE YOUR INITIALS: _
2 PRESS ANY KEY TO BEGIN AGAIN....
2 LOADER
2 LD HL,(PROCE)
2 LD DE,+22528
2 GGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGG
2 GGGGGGGGGGGGGGGGGGGGGGGGGG
2 GGGGGGGGGGGGGGGGGGGGGG
2 DK TRONICS
2 DDDDDDDDDDDDDDDDDDDD
2 CARTERO
2 ;"REBOBINE PARA VERIFICAR":
2 ;"PULSA UNA TECLA":
2 ***********************
2 )+" "+a$(1
2 )+" Ptas/U.":
2 )+" "+a$(1
2
2
1 z$="PARA EL CASSETTE"
1 z$=" PULSA UNA TECLA ":
1 z$=" PULSA PLAY":
1 xxxxxxxxxxx{{{{{{xxxxxxxxxxxx
1 xxxxxxxxxxxx{{{{{{xxxxxxxxxxxxxxxxxxxxxxxxxx{{{{{{xxxxxxxxxxxxxxxxxxxxxxxxxxx{{{{{xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx*
1 xxxxxxxxxxxx{{{{KKxxxxxxxxxxxxx
1 x,y;" ":
1 x,y,long,lo,o:
1 valde=23776
1 uv|}stz{qrxy p w
1 ttt=total:
1 ttt=tatal:
1 ttt+".-"):
1 total=total+in:
1 total=total+TO:
1 total=total+TO*(TO>0
1 total+".-":
1 total+".-"):
1 ti=ti+18.5
1 tatal=tatal+TA*(TA>0
1 tacar=23777
1 tacar+sx+sy*4
1 tacar+i,i:
1 sx=i);b$(1
1 sprites
1 spks
1 s$=" P.Vent":
1 s$=" P.Prov":
1 romdABspeifvlxCP
1 proce=23764
1 pant
1 p$=p$+(d$(
1 p$=p$+(a$(1
1 p$=p$+(" % I.T.E. "+d$(
1 p$=p$+(" "+a$(1
1 p$=p$+"Pendiente entrega"
1 p$=p$+"No hay pedido"
1 p$=g$+g$+d$(
1 p$=g$+g$+"____________":
1 p$=b$+"_ ":
1 p$=b$+" ":
1 p$=(g$+d$(
1 p$=(g$+" TOTAL......"):
1 p$=(" "+f$(p,5
1 p$=(" Total"+s$+"...."+d$(
1 p$="precio proveedor.? (6 dig.max.)":
1 p$="no ha sido dado de baja":
1 p$="cantidades con un espacio de separacion":
1 p$="anulado":
1 p$="Stock: "+a$(1
1 p$="Stock: "+a$(1
1 p$="Stock minimo: "+a$(1
1 p$="Stoc inicial ? (5 dig.max.)":
1 p$="SALIDAS":
1 p$="Referencia proveedor: "+a$(1
1 p$="Referencia del proveedor.? (4 CHR$)":
1 p$="Ref.: "+a$(1
1 p$="Ref. Descripcion Stock Prov. P.Prov. P.venta Valor Total":
1 p$="Recuerde que son 3 partes: Prog+C/M+Archivo":
1 p$="Proveedor ?":
1 p$="Precio venta ?":
1 p$="Precio proveedor: "+a$(1
1 p$="Precio proveedor ?":
1 p$="Precio de venta: "+a$(1
1 p$="Precio de venta.? (6 dig.max.)":
1 p$="Ponga en marcha el cassette":
1 p$="Pedido asignado":
1 p$="Pedido anulado":
1 p$="Nueva referencia.? (4 CHR$)":
1 p$="No hay productos en minimo":
1 p$="No hay ningun articulo":
1 p$="No hay mas productos":
1 p$="No existe esta referencia":
1 p$="Minimo asignado.? (5 dig.max.)":
1 p$="Minimo asignado ?":
1 p$="INVENTARIO GENERAL":
1 p$="INFORMACION PROVEEDORES":
1 p$="INFORMACION DE ARTICULOS":
1 p$="INFORMACION ARTICULOS EN MINIMO":
1 p$="I.T.E.":
1 p$="Hay mas articulos, sigo? (ENT/n)":
1 p$="GRABACION EN CASSETTE":
1 p$="GRABACION DEL ARCHIVO":
1 p$="Fecha ?":
1 p$="Factura No. ?":
1 p$="FACTURACION":
1 p$="Esta referencia ya existe":
1 p$="Esta referencia no existe":
1 p$="Entrar las referencias seguidas de las":
1 p$="El articulo "+a$(1
1 p$="ENTRADAS":
1 p$="Descripcion: "+a$(1
1 p$="Descripcion. ? (18 CHR$ max.)":
1 p$="Descripcion ?":
1 p$="Dar conformidad. (s/n)":
1 p$="Correcciones":
1 p$="Control pedidos: "
1 p$="Control de pedido pendiente. (s/n)":
1 p$="Cliente ?":
1 p$="Cantidad ?":
1 p$="CONTROL DE PEDIDOS":
1 p$="CARGA DE UN ARCHIVO":
1 p$="BAJAS DE ARTICULOS":
1 p$="Articulo con referencia "+a$(1
1 p$="Articulo archivado":
1 p$="ARTICULOS CON PEDIDO PENDIENTE":
1 p$=" * Entrada":
1 p$=" * CONTROL STOCKS * Copyright VENTAMATIC MICROINFORMATICA 1983 ":
1 p$=" fecha: "+e$:
1 p$=" Factura No."+i$:
1 p$=" Cliente: D. "+g$:
1 p$=" INVENTARIO GENERAL":
1 ni=inici+ni*32
1 n 2
1 lm lm lm lm lm lm
1 linea=linea+80
1 linea=8650
1 linea=8530
1 l2=l2+l0*(b$(n,f+8
1 l1=l1+l0*(b$(n,f)="
1 j=xeq+a*32
1 inver=23915
1 inici=63968
1 ini2=inici+ini*32
1 inhor=23952
1 iiiiiiiiqiiiihhhhhhhhhhhhhhhhhhhiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN
1 hhhhhhhhhhhhhhhhhhhWWWWWWWWWWWWWhhhhhhhhhhhhhhhhhhhWWWWWWWWWWWWWiiiiiiiiiiiiihhhhhhWWWWWWWWWWWWWiiiiiiikkkkiihhhhhhWWWWWWWWWWWWWiiiiiiikkkkiihhhhhhWWWWWWWWWWWWWiiiiiiikKKiiihhhhhhhhhhhhhhhhhhhiiiiiiiqqqqiihhhhhhhhhhhhhhhhhhhiiiiiiiqqqqiihhhhhhhhhhhhhhhhhhhiiiiiiiqqqqiihhhhhh
1 h;"Pagina ";a/h:
1 h;" SOLO 48K"''" Pulsa 2 o 3 para seleccionar pagina."'''" Pulsa P para ver pantalla."''" Pulsa S para salir":
1 giro=23847
1 g$=" ":
1 ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
1 e4>HRoe4>HRoe\
1 dihex=23815
1 dibin=23797
1 desti=23766
1 d$=" ":
1 d$;" D ";
1 cuadr=23787
1 copi=23830
1 const
1 cogra=23994
1 cm r
1 cm
1 c$="romdABspeifvlxC":
1 b$="Arch."+b$:
1 b$="ABCDEFGH"
1 altu=altu-5
1 altu2=altu2-5
1 altu2-cy<36
1 altu-cy<36
1 ad+(m(ox+1
1 a1,b1;b$(a1+1
1 a1,b1;" ":
1 a$="El consejo de arqueologos te ha encomendado una importante mision. Deberas introducir tu conejo-robot en el templo de Zeus para librarle de sus malditas ratas asesinas. El conejo se manda con las teclas a y s (derecha/izq) y la tecla l (disparo) QUE LA SUERTE TE ACOMPANE!!!"
1 a$="* Movimiento por teclas de cursor o joystick"
1 a$=" "
1 a k
1 ZEUS
1 XOR A ; PROCE
1 W P Q R S T U V W@P@Q@R@S@T@U@V@W`P`Q`R`S`T`U`V`W
1 V$="SI KIERES BERR KOMO SE ESKRIBEN LOS SONIDDOS PULSA BRREEAK Y MIRRA EL PRROGRRAMMA":
1 V$="OLA AMIGO KOMO ESTAS ESPERO KE BIEN":
1 V$="ESTE PROGRAMA TE PERMITIRA AZERME ABBLAAR KOMO LO ESTAS OIENNDDO ESPERO KE TE GUSTE ":
1 UUUUUUUUUUUUUUUUUUUUUUUUUxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx````````````````xxxxxxxxxxxxxxxx````````````````xxxxxxxxxxxxxxxx````````````````xxxxxxxxxxxxxxxx````````````````xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx000000000xxxxxxxxxxxxx((((((((xx000000000xxxxxxxxxxxxx((((((((xx000000000xxxxxxxxxxxxx((((((((xxx{{{{xxxxxxxxxxxxxxxxx((((((((xxx{{{{{{xxxxxxxxxxxxxxx((((((((xxx{{{{{{xxxxxxxxxxxxxxx((((((((xxx{{{{{{xxxxxxxxxxxxxxxxxxxxxxxxxx{{{{{{xxxxxxxxxxxxxxxxxxxxxxxxxx{{{{KKxxxxxxxxxxxx
1 UUUUUUUUUUUUUUUUUUUUUUUUUU
1 USAR ~GOTO 9000~
1 UDG \&
1 TWO @$
1 TO+".- "):
1 THREE
1 TACAR 00 00 00 00
1 Sub.calculo
1 Sub. presentacion
1 Sub. cursor
1 Start address : "*
1 Seleccion graficos
1 STOKS +3
1 SPRITES
1 SPKS
1 SPECTRUMANIA 3 - SIDE B
1 SI KIERES BERR KOMO SE ESKRIBEN LOS SONIDDOS PULSA BRREEAK Y MIRRA EL PRROGRRAMMAV
1 REVISION3
1 Presentacion datas
1 Presentacion comandos
1 PROCE 00 00
1 PRESS ANY KEY TO START......
1 PRESN LD HL,DAPR1
1 PRESE LD HL,DAPR0
1 PRES0 LD A,(HL)
1 PARA OBTENER DETERMINA- DOS SONIDOS DEBERAS USAR LA "K" EN LUGAR DE LA "C" Y LA "H"MUDA NO SE ESCRIBE.
1 PARA CARGAR EL SIGUIEN- TE PROGRAMA HAZ : "
1 PARA CARGAR EL PROXIMO PROGRAMA DEBES HACER
1 ONE
1 O H I J K L M N O@H@I@J@K@L@M@N@O`H`I`J`K`L`M`N`O
1 LD HL,TACAR
1 LD DE,TACAR
1 LD DE,+22784
1 LD DE,(+23675); U.D.G.
1 LD BC,+220
1 LD A,NEGRO
1 LD A,BLANC
1 LD A,30 ; VALOR
1 LD (PROCE),HL
1 KEMPSTON JOYSTICK
1 JR NZ GIRO1
1 JR NZ CUAD2
1 JR NZ COGR3
1 JR NC GIRO3
1 JR NC DIBI2
1 JR NC COGR5
1 JR NZ INHO2
1 Inv. Vertical
1 INVER LD HL,INTER
1 INVE1 LD A,(HL)
1 INV. HORIZONTAL
1 INTER 00 00 00 00
1 INSTRUCCIONES
1 INSTOCK
1 INHOR LD HL,INTER
1 INHO2 LD A,(HL)
1 INHO1 LD C,8
1 INFORMACION IMPRESORAS Cambiar en la linea10 if=0 sin interface if=1 I/F VENTAMATIC if=2 I/F INDESCOMP CR es el codigo de im- presion y avance de li- nea de la impresora.
1 IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII
1 HEXL LD E,A
1 HEXH LD D,A
1 GIRO5 LD A,(HL)
1 GIRO4 LD A,(DE)
1 GIRO3 INC DE
1 GIRO2 LD A,(HL)
1 GIRO1 LD DE,(PROCE)
1 GIRO LD HL,INTER
1 GGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGG
1 FIN=ACA+105
1 FFGGGGCCEEEEEEEEEG
1 FFFFCCCCEEEEEEEEEG
1 End address : "
1 ESCUCHA ATENTAMENTE
1 DK TRONICS JOYSTICK
1 DJNZ PRES0
1 DJNZ INVE1
1 DJNZ INHO1
1 DJNZ GIRO5
1 DJNZ GIRO4
1 DJNZ GIRO2
1 DJNZ DIBI1
1 DJNZ CUAD4
1 DJNZ CUAD3
1 DJNZ COGR4
1 DJNZ COGR1
1 DJNZ CLPR1
1 DIMOD 00 00
1 DIHEX LD A,(VALDE)
1 DIBIN LD A,(VALDE) ; PRINTA
1 DIBI2 RST 10
1 DIBI1 RLA ; EL
1 DESTI 00 00
1 DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGG
1 DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD
1 DAPR1 7F 20 31 39
1 DAPR0 14 03 06 12
1 DAHEX PUSH AF
1 Codigo
1 CURSOR MAPPED JOYSTICK
1 CUADR LD HL,+16384 ; GENERA
1 CUAD4 OR (HL)
1 CUAD3 LD (HL),A
1 CUAD2 LD A,80
1 CUAD1 LD B,+32
1 COPI LD HL,(DESTI)
1 COMPILER V 2.2
1 COMPILATION
1 COGRA LD HL,TACAR
1 COGR5 LD (DE),A
1 COGR4 LD A,(HL)
1 COGR3 LD B,8
1 COGR2 PUSH BC
1 COGR1 PUSH BC
1 COGR0 LD B,4
1 CLUB.PANT
1 CLPRO LD HL,(PROCE) ; BORRA
1 CLPR1 LD (HL),A
1 CLERKY WALKS TO WORK.
1 CALL DAHEX
1 CALL CUAD1 ; CULA
1 CALL CUAD1 ; CUADRI-
1 CALL COGR2
1 CALL CALCU
1 CALCU LD A,(HL)
1 C L E R K Y
1 B-17624-1985
1 Array End Address : "*
1 Actualiza UDG
1 ADD A,1 ; BINARIO
1 A$="* Pulsar M para ver coman- dos o cualquier otra te- cla para comenzar"
1 A$="* Para invertir el cursor pulsar '0' o 'fuego'"
1 @@@A@B@C@D@E@F@G`@`A`B`C`D`E`F`G
1 ;"________________________________"
1 ;"Y MUCHOS MAS............. ":
1 ;"Y AHORA TODOS REVUELTOS ":
1 ;"Y AHORA LOS MOVEMOS "
1 ;"Victimas:";
1 ;"U.D.G. """;
1 ;"Tiempo ";
1 ;"SPRITES"
1 ;"SPRITE";
1 ;"S=SAVE L=LOAD"
1 ;"Pulsa una tecla para ir al menu principal":
1 ;"Pulsa una tecla para continuar":
1 ;"Pulsa enter":
1 ;"Pulsa 'ENTER'"
1 ;"Porcentaje";
1 ;"PERO TENEMOS MAS SPRITES "
1 ;"PARA EL CASSETTE":
1 ;"MIRA LO QUE PASA EN EL BORDE "
1 ;"MIRA AHORA MAS RAPIDO "
1 ;"M=VOLVER AL MENU"
1 ;"Lugar:";
1 ;"Laser:";
1 ;"Las flechas para mover el CURSOR
1 ;"LA DEMOSTRACION SE HA ACABADO"
1 ;"Eres un inepto y el consejo de arqueologos nunca debio confiar en ti.":
1 ;"EL CONSTRUCTOR";
1 ;"Direc. inicio: ";v;" D ";
1 ;"D A T O S":
1 ;"CON LICENCIA UNIQUE"
1 ;"COMANDOS"
1 ;"CARGANDO...":
1 ;"Alimento:";
1 ;"AHORA VAMOS A PONER LOS SPRITES "
1 ;"AHORA SE DETIENEN CUANDO CHOCAN "
1 ;"============"
1 ;"==========="
1 ;"=========="
1 ;"1. DEMOSTRACION"'"2. INSTRUCCIONES"'"3. CREAR TUS SPRITES"'"4. SIGUIENTE PROGRAMA"
1 ;" Seleccione el U.D.G. a variar (cursor o joystic) y 'ENTER'"
1 ;" ":
1 9=Color 0=Giro ABCDE
1 73 20 4C 61
1 65 6C 20 20
1 64000,1500"
1 63 61 72 63
1 61 72 6C 6F
1 38 35 20 43
1 101
1 00 00 00`0p
1 -o*lo,-lo*4
1 -*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-VENTAMATIC SOFT PRESENTA-*-EL CONSTRUCTOR-*-Autor:O.Domingo-*-*-INSTRUCCIONES:-*-*-De 1 a 5 = Seleccion de la pieza-*-6 = Goma de borrar-*-9 = Cambio de color-*-0 = Rotacion de la pieza-*-ENTER = Suelta la pieza-*-M = Sonido s/n-*-G = Grabacion del dibujo-*-CAPS SHIFT+B = Borrado-*-CAPS SHIFT+A = Carga un dibujo-*-Teclas con flecha = Movimientos de la pieza-*-A,B,C,D,E = Modelos-*-Joystick VENTAMATIC/KEMPSTON = Basta enchufarlo-*-(Pulsa una tecla para empezar)
1 ,y;" ";
1 ,y;" "
1 ,y;" ";
1 ," x LOAD Arch. ",21
1 ," v SAVE Prog. ",19
1 ," s Salidas ",13
1 ," r Articulos ",4
1 ," p Pedidos ",15
1 ," o Proveedores ",5
1 ," m En minimo ",6
1 ," l SAVE Arch. ",20
1 ," i Inventario ",17
1 ," f Facturacion "
1 ," e Entradas ",12
1 ," d Est.Pedidos ",8
1 ," C Correcciones"
1 ," B Bajas "
1 ," A Altas ",10
1 ," INFORMACION ",3
1 ," GENERAL ",16
1 ," ALTERACIONES ",9
1 *******************
1 ********* escalera *
1 ****** Instrucciones
1 ******
1 ***** Puerta *****
1 ***** Planta *******
1 **** Maceta *********
1 **** Enemigos *****
1 **** Disparo *****
1 **** Crea pantallas
1 *** fuego *****
1 *** Plano e informacion
1 *** Muerte ****
1 *** Ladrillos ***
1 *** Laberinto ***
1 *** Estanteria ***
1 *** Dificultad ***
1 *** Columna **********
1 ** PARA USAR EL SPEAKER SYSTEM DEBES COLOCAR EL TEXTO EN LA VARIABLE ALFANUMERICA V$. Y HACER
1 *"m";1;"*]\#
1 * Luis Garcia Pareras *
1 * *
1 )+"....."+d$(
1 )+" ha sido dado de baja":
1 )+" Unid.":
1 )+" Unid. "+a$(1
1 )+" Min.: "+a$(1
1 )+" a "):
1 (linea=8600
1 (CAPS SHIFT A ABORT)
1 '''"PULSA UNA TECLA PARA CONTINUAR":
1 ''"Para guardar la rutina y los di-bujos hacer : SAVE ";
1 ''"Los graficos son excelentes al igual que la animacion y el movimiento de nuestro protago- nista."
1 ''"Esta rutina es ideal para los aficionados a realizarse sus propios video-juegos y a los que quieran sacar el maximo partido de su SPECTRUM"
1 ''"Cuando tengamos los datos pues- tos podemos ponerlos en marcha, con un RANDOMIZE USR 65148 y pa-ra pararlos un RANDOMIZE USR 65155"'''"AHORA VAMOS A VER ESOS 15 BYTES"
1 ''"9. EN MARCHA:un valor de 0 significa que el SPRITE esta desconectado y un valor de 1 que esta enmarcha"
1 ''"8. NUMERO DE MOVIMIENTOS:es el numero de pasos que dara el SPRITE antes de detenerse;valores 0-255 ,si se pone 0 el SPRITE no se movera y si se pone 255 esta-ra siempre en movimiento"
1 ''"6. BORDE:le indica al SPRITE quehacer en caso de choque en el borde de la pantalla;0=se para ,1=continua otro lado , 2=rebota"
1 ''"5. VELOCIDAD:indica cada cuando tiene que hacer un salto;valoresde 1 - 255,cuanto menor sea el valor mas corre"
1 ''"3. MOVIMIENTO HORIZONTAL:indica el salto,en pixel,que dara en cada paso en sentido horizontal;valores de 0-127 dan un movimi- ento hacia la derecha y de 128- 255 hacia la izquierda"
1 ''"2. POSICION VERTICAL:igual que el anterior pero en sentido ver-tical;valores de 0 - 175"
1 ''"13. NO SE UTILIZA"
1 ''"11 y 12. DIRECCION DEL GRAFICO: hay que poner la direccion dondeesta almacenado el dibujo del SPRITE ,empieza en 64000 ,o sea que si el dibujo es el primero del archivo de imagenes teneis que poner en el 11=0 y en 12= "
1 '"Johnny Jones, el heroe de BABA- LIBA, ha sido victima de la mal-dicion del faraon."''"Para que pueda continuar sus aventuras en ICE GLUPS, ha de liberarse de ella, llegando a la camara mortuoria y descri- biendo sus secretos."
1 $O$IsOPCSliqeROCSztoyBURwetS$LsOPCpLyLxLpCyCxCxBURkNI(D(Y(XlEVELyPxPoNsEVILfdxc$Aag$X$Cpbyn(H$HeROCSIH$E$KiSOP((
1 $="ALTAS DE ARTICULOS":
1 #z;p$(n);:
1 #$%ghijstuvwxyzklmnopqr{|}~*+,-
1 "stock"+b$
1 "r....ARTICULOS"," ","El ordenador le presentara la","ficha completa del articulo des-","pues de pedirle la referencia","del mismo."
1 "p....PEDIDOS"," ","Este comando se utiliza para","colocar o quitar el aviso de","pedido pendiente de un articulo."
1 "o....PROVEEDORES"," ","Listara todas las fichas que ","pertenezcan a un mismo provee-","dor despues de pedirle la ref.","del mismo."
1 "jardin2",2
1 "jardin",3
1 "en una linea, primero los cuatro","caracteres que forman la refe-","rencia y a continuacion (dejando","un espacio) la cantidad factura-","da. Si el ordenador detecta un","error anulara el albaran y vol-","vera al editor.","Despues de entrar la ultima re-","ferencia, pulsar ENTER sin haber","escrito nada. El ordenador pedi-","ra el I.T.E. y hara la factura."
1 "biblioteca",1
1 "^","v....SAVE PROGRAMA"," ","Salva el programa y el archivo","en cassette."
1 "^","s....SALIDAS"," ","Este comando sirve para actuali-","zar las fichas segun las canti-","dades que se vayan sacando, a","cada salida el ordenador presen-","tara la ficha actualizada para","su comprobacion."
1 "^","m....MINIMO"," ","El ordenador","mostrara todos los articulos","cuyo stock este por debajo del","minimo asignado."
1 "^","l....SAVE ARCHIVO"," ","Salva el archivo unicamente."
1 "^","f....FACTURACION"," ","Este es uno de los comandos mas","potentes del programa pues ade-","mas de facturar el albaran que","se entre, actualiza todos los","articulos que contenga.","El ordenador empezara preguntan-","do el numero de factura, luego","la fecha y el cliente. A conti-","nuacion indica que hay que en-","trar el albaran, cada articulo"
1 "^","e....ENTRADAS"," ","Esta opcion permite agregar"," nuevas cantidades al stock de","un producto.","El aviso 'M' de minimo desapa-","recera si con la nueva aporta-","cion se supera el mismo."
1 "^","d....PEDIDOS PENDIENTES"," ","El ordenador le presentara una","relacion de todos los articulos","que tengan pedido pendiente."
1 "^","COMANDOS GENERAL"," ","i....INVENTARIO"," ","El ordenador le proporcionara","un inventario de todos los arti-","culos del archivo."
1 "^","C....CORRECCIONES"," ","Este comando sirve para hacer","ligeros cambios en la ficha de","un articulo. Los cambios solo","pueden afectar a los precios, al","stock minimo, al proveedor, y a","la descripcion. Lo demas puede","cambiarse con la misma dinamica","del programa."
1 "^","B....BAJAS"," ","Este comando sirve para borrar ","definitivamente un articulo del","archivo y asi quede el espacio","libre para ser ocupado por uno","nuevo."
1 "^"," COMANDOS PARA ALTERACIONES"," ","A....ALTAS"," ","Este es el comando especifico","para crear una ficha. El propio","ordenador le pedira toda la","informacion que necesite para","abrir una ficha."
1 "[\~+++w###
1 "Zona final",0
1 "V - Invierte UDG verticalmente"
1 "Si de un articulo se da salida a","mas cantidad de la que contiene","el stock, este se vuelve negati-","vo indicando la cantidad que","se debe al stock para equili-","brarlo. Esto normalmente no pue-","de ocurrir pues no se puede sa-","car de donde no hay, pero como","a veces se factura antes de ha-","cer el paquete...pues pasa lo","que pasa... (nota del autor sin","deseos de evangelizar)."
1 "Salon 2",2
1 "Salon 1",0
1 "S - Seleccion grupo UDGs"
1 "REVISION3"
1 "Quieres ver el mapa? (s/n) ";y$:
1 "Quieres instrucciones? (s/n) ";y$
1 "QUIERES VER DE NUEVO LAS","INSTRUCCIONES ?....S/N"
1 "PULSA ENTER PARA CONTINUAR ";I$
1 "PROFANATION es uno de los mejo- res videojuegos del momento. Tiene 45 pantallas distintas pasando por grutas, pasadizos ocultos, trampas mortales y un sinfin de riesgos que debereis superar para lograr el objetivo."
1 "PRODUCIDO POR DINAMIC":
1 "Otra partida? (s/n):";a$
1 "NOMBRE ARCHIVO ";I$
1 "NO. SPRITE ";ni:
1 "M - Presentacion comandos"
1 "Introduzca el nuevo U.D.G. ";
1 "Habitacion",4
1 "H - Invierte UDG horizontalmente"
1 "Grafico a inv. vertical ";
1 "Grafico a inv. horizontal ";
1 "Grafico a girar ";
1 "Grafico a copiar ";
1 "Galeria",0
1 "G - Gira UDG 90 gr. derecha"
1 "Este programa permite gestionar","completamente un archivo de","hasta 450 articulos coordinada-","mente con la facturacion."
1 "El problema es que","hoy le interesa","mas que nunca con-","seguir un buen ranking,","ya que si lo logra","el jefe le concedera","un 'plus' que le","permitira invitar","a sus amigos a unas","copas.","Para evitar a los","tinteros deberas hacer","un verdadero alarde de","reflejos."
1 "El cartero debe","archivar cada dia un","monton de cartas en
1 "EL CARTERO LOCO"," ","El pobre cartero se","esta volviendo loco.","Su problema es que","debe hacer verdaderos","equilibrios para","llegar a fin de mes","con su misero sueldo;","para agravar las cosas","el ritmo de su trabajo","se ve frecuentemente","interrumpido por unos","tinteros saltarines","que ha embrujado algun","misterioso enemigo."
1 "E - Exit"
1 "Descanso",0
1 "Datos del grafico (A-U) ";
1 "DISTRIBUIDO POR ERBE"
1 "D - Presentacion de datos"
1 "Conseguir superar los primeros obstaculos se convertira en una autentica proeza, ya que el ni- vel de dificultad es muy elevado"
1 "Columnas",2
1 "Capilla",2
1 "Cada SPRITE necesita 15 bytes deinformacion,con estos datos le decimos al SPRITE donde lo pone-mos,que velocidad tiene,la dire-ccion,etc..."'"Esta informacion empieza en la direccion 65200 y los primeros 15 bytes son para el primero,lossiguientes 15 para el segundo y asi hasta el ultimo"
1 "C - Copia UDG en otro"
1 "Bifurcacion",1
1 "Arch."+b$
1 "Almacen",0
1 "Al grafico ";
1 "Acto seguido le preguntara si","desea pasar la ficha a impresora"
1 "=DIBUJA","C=COGER SPRITE","2=BORRA","D=DEJAR SPRITE","3=SALTA"
1 "8";"SE ACABO...":
1 "8";"PULSA UNA TECLA":
1 "7. CHOQUE:le dice que hacer en caso de choque con otro objeto 0=se detiene , 1=continua moviendose"
1 "4. MOVIMIENTO VERTICAL:igual queel anterior pero en sentido ver-tical ;valores de 0-127 hacia arriba y de 128-255 hacia abajo"
1 "14. ANCHO DEL SPRITE:cuantos pixel tiene el dibujo de ancho como maximo 16 pero pueden ser menos"''"15. ALTO DEL SPRITE:igual que el anterior pero en alto"
1 "10. TEST DE COLISION:en este by-te no hay que entrar ningun da- to,nos dice si el SPRITE ha cho-cado o no;0=sin colision,1=esta en el borde,128=ha chocado,129= ha chocado y ademas esta en el borde"
1 "10";" PROFANATION"''
1 "1. POSICION HORIZONTAL:indica laposicion horizontal,en pixel, del angulo superior izquierdo del SPRITE en la pantalla;valo- res de 0 - 255"
1 "1";"PULSA PLAY PARA JUGAR":
1 "1";"PARA EL CASSETTE"
1 "0";"PARA EL CASSETTE Y";
1 ","los buzones; normal-","mente, esta seria una","funcion facil y ruti-","naria, pero, como te","indicamos antes, ALGO","sucede con los tinteros","de su oficina: le","persiguen a una velocidad","vertiginosa evitando","que cumpla con su","trabajo."," "
1 "********************************* ** El Templo de Zeus ** **
1 "''"Esta rutina en codigo maquina tepermite mover libremente por la pantalla hasta un total de 8 SPRITES sin tenerte que preocu- par de nada mas,los SPRITES se mueven siempre independientemen-te de lo que haga el programa"
1 """"""""""""""""""""""""""""""""
1 " ";b$(i+4
1 " ";b$(i);:
1 " ","SACAR INSTRUCCIONES POR IMPRE-","SORA....P"
1 " "," ","#","Para jugar puedes","elegir entre","distintos tipos de","joystick o el teclado","(keyboard). Si eliges","esta ultima opcion,","las teclas a utilizar","son:"," Q => arriba"," A => abajo"," O => izquierda"," P => derecha"," CAPS SHIFT => Parar"
1 " "," "," ","@"
1 " "," INSTRUCCIONES : ","^"," COMANDOS PARA INFORMACION"," "
1 " Pedidos pendientes"''
1 " Y "
1 " CONTROL DE STOCKS","________________________________"
1 " PROFANATION"''"Hace mas de 30 siglos, Ramses IIconstruyo el templo de ABUSIMBEL"''"Durante estos tres milenios to- dos sus secretos han permanecidoocultos a los ojos humanos. "
1 YOU MUST HELP HIM FILE AWAY THELETTERS
1 Second Pass
1 SPEAKER SYSTEM
1 SOMETHING MYSTERIOUS HAS HAPPENED TO THE INK POTS
1 SO HE MUST WORK HARD
1 RANDOMIZE
1 PARA EL CASSETTE
1 NO ERRORS
1 MAKING SURE YOU DON'T LET YOURSELF BE HIT BY RUBBERS BEING THROWN BY THE MAD TYPIST IN THE NEXT DOOR ROOM!
1 Luis G.Pareras ** *********************************"
1 LOAD """""
1 IT'S FRIDAY AND CLERKY WANTS TOGO DOWN TO THE PUB AFTER WORK. BUT HE IS A LITTLE LOW ON CASH AT THE MOMENT
1 IF THAT HAPPENS YOU WONT BE ALLOWED IN THE PUB.
1 First Pass
1 El templo de Zeus *
1 AND MAYBE THE BOSS WILL GIVE HIM A BONUS !
1 1985 Carlos Lacarcel
1 1985 CARLOS LACARCEL
1 1983 THRELFALL and HODGSON Compiled OK Program Length = bytes To run enter RAND USR "
1 1983 Martin Lewis
1 & THEYKEEP TRYING TO SPILL INK ALL OVER YOUR NICE CLEAN SHIRT.
1 khij fghij
1 Y LUEGO
1 SFHJRCUNIQUESOFTWARE.CLERKY???
1 SELECT OPTION WITH (SPACE) AND PRESS (ENTER).
1 ERROR
1 ZX COMPILER V2.0
1 CLERKY HIGHEST SCORES
1 WYE VALLEY SOFTWARE
1 PULSA UNA TECLA Y
1 PULSA PLAYu
1 D5
1 ">
1 D
1
1
1